home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cstdio.arc / SRC.ARC / SWAB.A < prev    next >
Text File  |  1985-07-23  |  426b  |  27 lines
  1. ;    swab.a - swap bytes.
  2. ;    (C) Copyright 1985 Cray Research Inc. - All Rights Reserved.
  3. ;    G. R. Mansfield.  85/07/23.
  4. ;    Ver 1.0-5723.
  5.  
  6.  
  7.     cseg
  8.     public    swab_
  9.  
  10.  
  11. ;    void swab(from, to, nbytes)
  12. ;    BYTE *from, *to;
  13. ;    int nbytes;
  14.  
  15. swab_:
  16.     mov    bx,sp
  17.     mov    si,[bx+2]    ; source
  18.     mov    di,[bx+4]    ; destination
  19.     mov    cx,[bx+6]    ; count
  20.     sar    cx,1        ; word count
  21.     jle    swa2
  22. swa1:    lodsw
  23.     xchg    ah,al
  24.     stosw
  25.     loop    swa1
  26. swa2:    ret
  27.